home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / 3MINCPY.ARC / C35 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  629 b   |  34 lines
  1. 10 MEMEXC STX ME+3;EXECUTE DISK PROGRAM
  2. 20 STY ME+4
  3. 30 JSR LIST
  4. 40 LDY #$00
  5. 50 L3 LDA ME,Y
  6. 60 JSR OUT
  7. 70 INY
  8. 80 CPY #$05
  9. 90 BNE L3
  10. 100 JMP UNLIS
  11. 110 ME .BYTE 77 45 69 00 00
  12. 120 LIST LDA DEV
  13. 130 JSR LIS
  14. 140 LDA #$6F
  15. 150 JMP LISEC
  16. 160 TALK LDA DEV
  17. 170 JSR TLK
  18. 180 LDA #$6F
  19. 190 JMP TLKSEC
  20. 200 SETBUF LDA #$00;SET UP BEGINNING DATA BUFFER AT $1800
  21. 210 STA CZFB
  22. 220 LDA #$18
  23. 230 STA CZFC
  24. 240 LDX #$E4;ON PASS 1 & 3 WE'LL USE #228 DATA BLOCKS
  25. 250 LDA PASS
  26. 260 CMP #$02
  27. 270 BNE J1
  28. 280 DEX;ON PASS 2 WE'LL USE #227 DATA BLOCKS
  29. 290 J1 STX USEBLKS
  30. 300 LDA #$00
  31. 310 STA ERFLG;SET ERROR FLAG TO ZERO USED FOR TRK & SEC ERRORS
  32. 320 RTS
  33. 330 .FILE C35 4
  34.